home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 86
/
64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_B.d64
/
charset 1.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
50 lines
10 ifpeek(12905)<>84orpeek(12906)<>71orpeek(12907)<>80thenload"v 1.0 by tgp",8,1
11 a$=" - ":forx=1to8:readb$:a$(x)=""+b$+"[146][157]":nextx:sys12805:poke53272,21
12 data"[192]","[196]","[197]","[196]","[192]","[198]","[210]","[198]"
13 print"[147] [169] [146][169][169][146][169][169][146][169][169] [146][169][169] [146][169][169] [146][169][169] [146][169][169] [146][169] [169] [146][169] [169] [146][169]"
14 print" [169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] [169][146][169] [169][146][169] [169][146][169] [169][146][169][169][146][169]"
15 print" [169][146][169] [169] [146][169][169] [146][169][169] [146][169][169] [146][169][169] [146][169] [169][146][169] [169][146][169] [169][146][169][169][146][169]"
16 print" [169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169][169][146][169] [146] [169][146][169][169][146][169] [169][146][169] [169][146][169][169][146][169][169][146][169][169][146][169]"
17 print"[169] [146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169][146][169][169] [146][169][169] [146][169] [169][146][169] [169][146][169][169][146][169][169] [146][169]"
20 print"[156]"a$"ueben":printa$"text zeigen":printa$"text schreiben"
30 printa$"schreiben fortsetzen":printa$"directory":printa$"zeichensatz laden"
40 printa$"text abspeichern":printa$"text laden":printa$"ganz abspeichern";
100 print"";:a=1
110 poke198,0:forx=1to24:printa$(x/3);:getb$:ifb$=""thennext:goto110
120 ifb$=""thenifa<9thenprint"-[157]";:a=a+1
130 ifb$="[145]"thenifa>1thenprint"-[157][145][145]";:a=a-1
140 ifb$<>chr$(13)then110
199 ifa<5thensys12805
200 print"[147]":on a gosub 300,400,500,600,700,800,900,1000,1100:run
300 sys12641:return
400 sys12792:return
500 poke12671,45:poke12672,66:sys12667
600 sys12792
605 ifpeek(12671)=0thenpoke12671,255:poke12672,peek(12672)-1:sys12667:return
610 poke12671,peek(12671)-1:sys12667:return
700 print"[147]0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
710 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:geta$,a$,a$,b$:print
711 printasc(a$+x$)+256*asc(b$+x$);:ifst<64goto710
712 sys65484:close1:poke198,0:wait198,1:return
800 input"[147]name zei.";a$:a$=left$("zei."+a$+".....",9)
810 input"nr. 0,1,2 (0 wird ueberschrieben";a:ifa<0ora>2then810
815 poke12846,0:poke12848,32+a*8+(a=2)*24
820 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12842:return
900 input"[147]name txt.";a$:a$=left$("txt."+a$+".....",9)
910 poke193,45:poke194,66:a=peek(12671)+peek(12672)*256:pokea,peek(12671):pokea+1,peek(12672)
911 a=a+2:poke174,aand255:poke175,a/256
920 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12854:return
999 goto9999
1000 input"[147]name txt.";a$:a$=left$("txt."+a$+".....",9)
1010 poke12846,45:poke12848,66
1020 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12842:a=peek(174)+peek(175)*256
1030 poke12671,peek(a-2):poke12672,peek(a-1):printa:return
1100 input"name (zwei buchstaben)";aa$:b$=right$(aa$,1):a$=left$(aa$,1)
1101 poke12940,asc(a$):poke12941,asc(b$):open1,8,1,aa$+" loader,p,w":
1102 forx=12909to12945:print#1,chr$(peek(x));:next:close1:
1110 poke193,00:poke194,24:a=peek(12671)+peek(12672)*256
1111 a=a+3:poke174,aand255:poke175,a/256:a$=a$+b$+chr$(160)+"crst 1 "
1130 forx=1to9:poke1023+x,asc(mid$(a$,x)):nextx:sys12854:return
9999 close1:open1,8,15:input#1,a,a$,b,c:printa,a$,b,c:end
10000 close1:open1,8,15,"s:charset":save"charset",8